COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	REQUIRE "WIXSUB.REL[VIS,HPM]" library
C00011 ENDMK
C⊗;
REQUIRE "WIXSUB.REL[VIS,HPM]" library;
REQUIRE "WIX2SB.REL[VIS,HPM]" load_module;
require "wix3lb.rel[vis,hpm]" library;
require "edge.rel[vis,hpm]" library;

external PROCEDURE NORMALIZE(REFERENCE INTEGER PIC);
external PROCEDURE SYNCHRONIZE(REFERENCE INTEGER PIC);

external procedure edgeinit(reference integer picture; integer size);
external real procedure edge(integer x,y;reference real edgeresult);
comment edgeresult is real orx,ory,ocl,osl,od,ob;

EXTERNAL INTEGER PROCEDURE INTRST(REFERENCE INTEGER PICTURE;
				INTEGER WINSIZ;
				REFERENCE INTEGER RESULTARRY);

EXTERNAL PROCEDURE GETPAR(REFERENCE INTEGER ARRY, PICTR);

EXTERNAL PROCEDURE PERBIT(REFERENCE INTEGER PICTURE, PERMUTATION);
EXTERNAL PROCEDURE HISTOG(REFERENCE INTEGER PICTURE, HISTOGRAM);

EXTERNAL PROCEDURE ROWSUM(REFERENCE INTEGER PICTURE, RWSUM);
EXTERNAL PROCEDURE ROWSUD(REFERENCE INTEGER PICTURE, RWSUM);

EXTERNAL INTEGER PROCEDURE CMPPAR(REFERENCE INTEGER PIC1,PIC2);

EXTERNAL PROCEDURE CLEAN(REFERENCE INTEGER PICTURE);
EXTERNAL PROCEDURE PASSHI(REFERENCE INTEGER PICTURE1;
				INTEGER WINSIZ;
				REFERENCE INTEGER PICTURE2);
EXTERNAL PROCEDURE HAFPIC(REFERENCE INTEGER PICTURE1,PICTURE2; INTEGER MAXBIT);
EXTERNAL PROCEDURE COPPIC(REFERENCE INTEGER PICTURE1,PICTURE2);
EXTERNAL INTEGER PROCEDURE MATCH(REFERENCE INTEGER PIC1,SY1,SX1,SY2,SX2;
				REFERENCE INTEGER PIC2,DY1,DX1,DY2,DX2);
EXTERNAL REAL PROCEDURE NORCOR(REFERENCE INTEGER PIC1,SY1,SX1,SY2,SX2;
				REFERENCE INTEGER PIC2,DY1,DX1,DY2,DX2);

EXTERNAL PROCEDURE UNPACK(REFERENCE INTEGER SOURCEARRAY, PICTURE);
EXTERNAL PROCEDURE SELECT(REFERENCE INTEGER PICT1; INTEGER YEDGE,XEDGE; 
				REFERENCE INTEGER PICT2);
EXTERNAL PROCEDURE SHRINK(REFERENCE INTEGER PICT1,PICT2);

external PROCEDURE INTEREST(REFERENCE INTEGER PICTURE; INTEGER IW;
				REFERENCE INTEGER RESULT);
external INTEGER PROCEDURE diminterest(REFERENCE INTEGER PICTURE; INTEGER IW);